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ABSTRACT 



The EDIT Program is part of the SWRL Financial System. The program 



is. responsible for validating input records, generating records for 
further systlHi processing, and updating the Vendor Master File. This 
document deacribes the specific editing reqiiiromcnts , and shows the 



relationship between data elements and reports. 
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PROCm DESCRIPTION : EDIT PROGRAM AND. VeNDOR__ 
MASTER UPDATE - SWRL FINANCIAL SYSTEIi '""^ 

This program is written in American National Standard COBOL 
(ANS COBOL) incorporating the SORT verb feature of this language. The 
SORT program is a member of the IBM System/360 Operating System and 
functions under the supervisor^control of the operating system conven- 
tions. Any data sets used by the program must be defined according to 
current operating systems standards. In using the SORT verb feature of 
COBOL, the SORT is executed in .three phases. During Phase I (Input 
Pi^ocedure), as each record is checked and accepted for validity, the 
record is released to the SORT to be Sequenced in a prescribed order. In 
Pliase II (Intermediate Merge Phase), the SORT has control of the system 
and the COBOL program cannot interrupt during this pha.se of execution. 
L'he SORT performs successive merges of strings (records In. sequential 
order) until .a final merge Cto create one long string) is achieved. 
Then in Phase III the records are in their prescribed sequence. The 
user's written COBOL program and the SORT will begin an interfacing 
operation. in which each of the sorted records will be returned to the 
COBOL program for further processing* 

HIASE I: INPUT PROCEDURE 

During Phase I of the SORT, the following checks for each type of 
transaction record are required: 

1, Tranaaction Record Edftlnj^, 

a. Column 1 ^ must be a "T** 

b. Columns 2-3 = must be 01, 02, 03, 04, 05, 07, 08, 09 



See TN 5-72-16 for an overview of the SWRL Fipancial System, 
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c. Column 4 = blank 

d. Columns 5-19 - (Control Field) 

1) '' Year 5-6 = must be numeric, 

2) Contract 7-10 = must be numeric, 

3) Fund 11-13 = blank or numeric. 

4) Acct. Class or Cost Center 14-16 • 
— Column 14 must be A, E, L, U, 0 

with columns 15-16 blank or 
Columns 14-16 must be numeric 

5) Acct. Number 17-19 = must be numeric. ^ 

e. Colmns 20-30 (Amount Field) 

— Column 20 has a plus (+) or minus (-) sign. 

If sign is miiius (-), subtract amount (columns 21-30) 
from. ZERO, and place value in columns 21-30. If sign 
is positive (-f ) , add amount (Columns 21-30) to ZERO, 
and place value in columns 20-30. This puts the sign 
in the low order position of the amount field (columns 
20-30). NOTE: BE SURE TO CHECK COLUMNS 21-30 ARE 
NUMERIC BEFORE ANY ARIlllMETIC IS PERFORMED, 

f. Columns 31-80 

— Transaction Inputs 01, 02, 03, 04^, 05, 06, 07 must be 
blank from 31-80. 

— Transaction Input 08 is edited as follows: 

1) Columns 31-36 = Vendor Number = must be numeric. 
Also, a check digit calculation of the Vendor 
Number must be made. 
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2) Columns 37-42 «= Invoice Date = must be numeric, 

3) Columns 43-52 == Can either be blank or contain data. 

4) Columns 53-58 = Check Date = must be numeric. 

5) Columns 59-64 = Clieck Number = must be numeric. 

6) Columns 65-70= P.O. Number or Encumbrance Number= 
either bl^ank or contains data. 

7) Columns 71-73 = must be blank or numeric. 

8) Colimins 74-80 = must be blank. 
Transaction Input 09 is edited as follows: 

1) Columns 31-36 - Vendor Number = must be numeric. 
Also, a check digit calcMatioYi of the Vendor 
Number rau§j>-b^made. 

2) Columns 37-52 = must be blank. 

3) Columns 53-58 = P.O. or Encuinbrance Date = must be 
present. 

4) Columns 59-64 == must be blank. 

5) Colximns 65-7.0 == must contain data. 

6) Columns 71-73 == must be blank or numeric. 

f 

7) Columns 74-80 - must be blank. 



Other editing requirements are: . 

— If purchase order number begins with a P, the cost must 
go to account number 572, 

— I£ the account number is 572, the cost is charged to cost 
center 403 only, 

— I£-the account numbers are 551, 574, the cost is charged 
to cost cerjter 406 only* . 

If the account numbers are 541, 542, 546, or 571, the 
cost is charged to cost center 900 only. 
Special Input Records , 

a. Coltimn 1= must be an **S**. 
" b. Columns 2-3 = must be 01, 02, 03, 04, 05, 07, 08, 
c< Column 4 = must be C = change^^ or D = delete, or N - new. 
d. Column** 5 thru 80 as follows: 
1) Special Rec, 01 = SWRL Header 

- Columns 5-10 must be numeric. 
Columns 11-30 must be blank. 

= Columns 31-36 = Reporting Date = must be numeric. 

- Columns 37-39 = G 6^ A Pet. ~ must be numeric. 
= Columns 40-80 = must be blank. 
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2) Special Ilec. 02 = General Ledger change. 
^ Columns 5-6 = must be numeric. 

= Columns 7-10 - Contract = must be numeric- 
= Columns 11-13 = either blank or numeric. 
= Columns 14-16 = Cost Center = must be blank. 
= Columns 17-19 = Account Number = must be numeric. - 
= Columns 20-50 = must be blank. ^ 
= Columns 51-80 ^ if trans code is a D, it must be blank 
If trans code is C or N it must contain data. 

3) Special Rec. 03 and 04 = Division Header and Cost 
Center Reader. 

= Columns 5-6 - Year = must be numeric. 

= Columns 7-10 = Contract - must be numeric. 

= Columns 11-13 = either numeric or blank. 

= Columns 14-16 = Division or Cost Center - must 

be numeric. 
= Columns 17-30 = must be blank. 
= Columns 31-36 = Report Number = (same condition 

as. columns 51-80 below) 
= Columns 37-50 = must be blank. 
= Columns 51-80 = Division or Cost Center Name. 
If trans code is a D = must be blank. If trans 
code is a C, it can either be blank or contain d^ta. 
If trans code is an N, it must contain data* 

4) Special Rec. 03 Cost Center Change* 

- Columns 5-6 5=^ Year = must be numeric. 
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= Columns 7-10 = Contract = must be numeric, 
= Columns 11-13 = Fund = must be either numeric or 
blank* 

= Columns 14-16 = Cost Center = must be numeric, 
= Columns 17-19 = Account Number = must be numeric 
= Columns 20-30 = Account Field = Column 20^ must 

contain either a plus (+) or a minus (-) sign, 
= Columns 31-80 = must be blank, . , 

Special, Rep. 07 = Vendor Record 1^^ 
= Columns 5-10 = Vendor Number F^must be numeric. 

Also a check digit caTcuTation is x-equired. 
= Columns 11-20 = must be blank. 
= Columns 21-50 = Vendor Name 1 = , 

If trans code is N, data must be present. 

If trans code is G, it can be either blank or 

contain data. ^ 

If trans code is D, it must be blank. 
« Columns 51-80 = Vendor Name 2 « 

If trans code is C or N it can either be blank 

or contain data. 

If trans code is D, it must be blank. 
Special Rec. 08 Vendor Record 2 / 

'= Columns 5-10 = Vendor Number - must be numd^ic. 

, { 

Also a check digit calculation is requiradN 

o 

- Columns 21-50 = Vendor Address^ 

If trans code is N, it must contain data. 



If tranji code is C, it can be either blank or 

contain data. There will be M trans code D for 

this record. If a Vendor Number is deleted, the 

Special 07 Record will be the only one required. 

= Columns 51-71 = Vendor City = 

If trans code is N, it must contain data. 

If trans code is G, it can either be blank or 

contain data, 

= Columns 76-80 = Vendor Zip Code = 

If trans 'code is N, it must contain data. 

If trans code is C, it can eithei^ be blank or 

contain data. ; 

/ 

After each record is edited and i^ a valid record, it is f 

/ 

expanded to 155 characters. There is no change in the field 
format of the first 80 positions (the input card) except fo|: 
the following types of record: 

a. Transaction Input 

1) Trans Rec. 08 & 09 = move Vendor Number to position 

81-88, \ 

\ ^ 

2) Move columns 1-4 of these records to positions 89-92. 

3) All other Transaction Records require no changes 
except for the expansion. 

b. Special Input 

1) Special Input Rec, 07 & 08 = move Vendor Number to 
positions 81-88, 

2) Move columns 1-4 of these records to positions 89-92. 

3) All other Special Records require no changes 
except for the expansion. 
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5'. llie sort field is in position Sl-^Z* All records except 
Trans Records 08 6c 09 and Special Records 07 6c 08 will be 
blank in this field. Therefore, when the program goes into 
Phase 3 of the Sort, all records containing blanks will be ' 
^ first, followed by the Vendor. Information Records. 

PHASE II: INTERMEDIATE MERGE PHASE 
During Pliase 2 of the Sort, the SORT program is sorting the 
records in 0 prescribed sequence, 

PHASE 1X1: OUTPUT PROCEDURE ' 
During Phase 3 of the Sprt, ;each record will be used to gener^tte"" 
additional records. Inl addition to this, a sort-control field for each 
of the generated records is required, The sort control field will, be 

L31 to 155 of the record. Each type uf input 
record can he Ldentlfii/d to Lhrco or more of the reports created by the 

% 

system, llierefore, a record will be generated for each report in which 
that record is used. When the Vendor Information Records are encoun- 
tered, the Vendor Master File is updated. Special Input Records 07 
and 08 are the only records \4iich update the Vendor Master File. These 
records will add, change, or delete the Vendor Records. Transaction 
Record3 08 and 09 will retrieve the Vendor Name 1 (positions 11-40) 
fronTits corresponding Vendor Number in the Master File and move thi>s 
information tic positions 101 to 130. The generation of records and 
development of the sort-control field will also be required for all 
Vendor Infonnation Records. 

Hie generation of each type of record to its applicable report 
is as follows: • \ 



Transaction Input 

a. Cash Receipts = TOl Rec, 

"^^^ 1) Transaction Input = Report 01 ' ' 
2) General Ledger = Repott 02 
Z) General Ledger Trans = Report 03 

4) Management Reports = Report 04 - / 

NOTE: For Management Reports, if the Cost Center field ^ ; 
(Columns. 14-16) is not numeric^ and the high order 
position of that field contains A, E, L, U, R, 
0, no record generated to this report. ^ 

b. Case\ Disbursements = TO 2 Rec. = same as cash- receipts. 

c. Sale^ or Source ^£ Revenue = TO3 Rec. = same as cash receipts. 

d. Payroll Distribution = 1'04 Rec. = same as cash receipts. 

e. Journal Entries = T05 Rec. ^ s<ime as bash receipts. 

f. Adjusti^ng Journal Entries = TO 5 Rec. = same as cash receipts** 

g. Repradudition Service Allocation =T07 Rec« = same as 
cash receipts, 

h. Check Input = T08 Rec. ~ same |as cash receipts except 
the following additional records must be generated: 

1) Payable Input = Report ^05 

2) Payable Cost Distribution = Report 06 

I 

3) Payable Account Distribution = Report 07 

4) Payable Payment = Report 08 

5) Open Y-T-D (l|^>nunitmenL ^ Report 09 

i. QbllgatioUvS and Encumbrances = T09 Rec. same as cash receipt 
except that the following additional record must be generated: 
Open Y-T-^D Commitment ~ Report 09 

jLdL m 
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2. Special Input - - --i - 

/ 

a. SWRL Ueader ^ SOI Rec. 

1) Transaction Input = Report 01 

2) Management Reports = Report. 04 ' 
I b. General Ledger Change = ^02 Rec. 

1) Transaction Input - Report 01 

2) General Ledger = Report 02 
c. Division Header = SO^ Rec. _ ^ 

^j' 1) Transactlion\nput ^ Reportr 01 

^ 2) Management Report - Report 04 

Xd;- Cost Center Header = S04 Rec. 

1) i. Transaction Input h Report 01 

2) Management Report Report 04 

e. Cost Center Change - SOS Rec, 

1) • TransactLon Input « Report 01 

2) Management Report = Report 04 

f, Vendor Record i = 807 Rec. 
Transaction Input = Report 01 

\^ g. Vendor Record 2 = Sp8 Rec. v - y 

\ Transaction Input - Report Oi \ 

3. The sort-control yeld for^^ach type of report record is as^follow 
a* Report 01 - Transaction ^Input 

1) Columns 131-132 = Report No. ^ ^'Ql" 
•2) Column 133 = Input type ^ "T' or "S" 

3) Columns 134-135 Input Ident. 

4) Column 136 - Trans Code 

5) Columns 137-141 = Check Number (To8 records only) 

6) Columns 142-155 = blank 
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b. Report 02 " General Ledger 

."^ — 

1) Columns lii-.132 = Report No. = '^02" 
, 2) Columns 133-135 = Account Number - . - 
3) Columns' 136-147 = Year-Contract-Fmid-Cost Conner 

Columns .148-149 = Input Xdent. 
5) Columns 150-155 = blank 

c. Report 03 - General Ledger Transactions 

1) Columns 131-132 = Report No. = "03"' 

2) Columns' 133-135 = Account Number 

3) Columns 136-147 = Year-Contract-Fund-Cost Center 

4) Columns 148-149 = Input Ident. 

5) Columns 150-155 = blank. 

d. V Rfepojt 04 = Management Reports | ^ 

\l) Columns 131-132 =^^^?eport No. = "04" 

2) . " Columns 133-134 = Year 

3) Columns 135-138^= Contract 
: . ■ \ 

4\) Columns 139-141 Fund 

5) Columi^ 142 = Cost Center ID - SEE -NOTE BELOW 

6) Columns 143-145 = Cost Center 

7) Columns 146-148 = Account Number 

8) Column 149 = Input type 

9) Columns 150-151 = Input ID 
^ ' 10) Column 152 = Trans Code 

^]^K^olumns 15'i-155 = blank 

NOTE :^f^ the dost center is 900, place a ZERO "0" in 
" this fieW>^therwise place a "1" in this field. 



/ 
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e. Report 05 ^ Payable Input 

1) Columns 131-132 = Report No. = "05" 
^ 2) Columns 133-138 = Vendor Number 

3) Columns 139-144 = Invoice Date = Year, Month, 

4) Columns 145-155 = Blank 

f. Report 06 = Payable Cost Distribution 

^ • 1) Columns 131-132 = Report No. = "06" 

2) Columns 1:^3-134 = Year 

3) Columns 135-138 = Contract 

4) Columns 139-141 Fund 

/ 

5) Columns 142-144 = Cost Center 

6) Columns 145-147 = Account Number ' 

7) , Columns 148-155 = blank 

g. Report 07 = Payable. Account Distribution 
1) Columns 131-132 = Report No. "07" 

- 2) Columns 133-134 = Account Number 

3) Columns 135-136 = Year 

4) Columns 137-140 = Contract 

5) Columns 141-143 = Fund 

— 6) Columns 144-146 - Cost Center 

7) Columns 147-153 = Check Number 

8) (/olumns 154-155 = blank 

h. , Report 08 *■= Payable Payment Register 

1) ^ Columns 131-132 = Report No. = "08" 

2) Columns 133-138 « Check Number 
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3) Columns 139-144 = Vendor Number 
^ Columns 145-155 = blank 
i. Report 09 - Y-T-D Open Commitment 



1) 


Columns 


131- 


-132 


= Report No. = "09" 


2) 


Columns 


133- 


-138 


= Year-Contract 


3) 


Columns 


139 


rl44 


= P.O. No./Encumb. No. 




Columns 


145 


-150 


= Vendor Number 




Columns 


151 


-155 


= blank 



Additional Programming Considerations: 

In any instance where the prior year obligatioiTis^paid' 
in the current year (Open Y-T-D Commitment), the gene- 
ration of the Management Report Record (Report ^04) Is 
the same as tbe current- year. However, in generating 
the-Genefal Ledger Record, the account number is not 
taken from the Control Field (columns 17-19) but from 
-the Liability Acct. Field (columns 71-73) of the T08 
Record. For current year obliga^ions that are paid in 
the current year, the account number is taken from the 
Control Field (columns 17-19). 



15 



